home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78a98.iso
/
Sharewar
/
Organise
/
_SETUP.1
/
Epoch Organiser 3.0.exe
/
0
/
RCDATA
/
TJOURNALFORM
/
TJOURNALFORM.txt
< prev
Wrap
Text File
|
1998-01-25
|
11KB
|
307 lines
object JournalForm: TJournalForm
Left = 78
Top = 77
Width = 485
Height = 326
Caption = 'Diary Journal Editor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 477
Height = 33
ButtonHeight = 27
ButtonWidth = 117
EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
EdgeOuter = esRaised
Indent = 2
TabOrder = 0
object Panel3: TPanel
Left = 2
Top = 2
Width = 453
Height = 27
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
object FontPanel: TPanel
Left = 0
Top = 2
Width = 159
Height = 21
Hint = 'This Journal Pages Font'
BevelOuter = bvNone
BorderStyle = bsSingle
Color = clWhite
Ctl3D = True
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = Font1Click
end
object Printbtn: TBitBtn
Left = 168
Top = 2
Width = 25
Height = 21
Hint = 'Print This Page'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = PrintbtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 200
Top = 2
Width = 25
Height = 21
Hint = 'New Journal Page'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = NewJournalPage1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
333337FFFFFFFF77333330000000000333333777777777733333}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 225
Top = 2
Width = 25
Height = 21
Hint = 'Change Pages Title'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = JournalTitle1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
3055577777555557F7F555000555555999555577755555577755}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 250
Top = 2
Width = 25
Height = 21
Hint = 'Change Pages Date'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = JournalDate1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF
F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF
F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF
F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070
F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0
F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
333337FFFFFFFF77333330000000000333333777777777733333}
NumGlyphs = 2
end
object BitBtn1: TBitBtn
Left = 275
Top = 2
Width = 25
Height = 21
Hint = 'Erase This Page'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = EraseThisPage1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F5555000555555505555577755555557555}
NumGlyphs = 2
end
object SelectJournalbtn: TBitBtn
Left = 305
Top = 2
Width = 108
Height = 21
Caption = 'Select Journal'
TabOrder = 6
OnClick = SelectJournalbtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
333333333777733333333333FBFBFB3333333333333333333333}
NumGlyphs = 2
end
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 261
Width = 477
Height = 19
Panels = <
item
Width = 120
end
item
Width = 50
end>
SimplePanel = False
end
object JournalText: TMemo
Left = 0
Top = 33
Width = 477
Height = 228
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 2
OnKeyPress = JournalTextKeyPress
end
object MainMenu1: TMainMenu
Left = 144
Top = 148
object Options1: TMenuItem
Caption = '&Options'
object Font1: TMenuItem
Caption = '&Font'
OnClick = Font1Click
end
object N1: TMenuItem
Caption = '-'
end
object NewJournalPage1: TMenuItem
Caption = '&New Journal Page'
OnClick = NewJournalPage1Click
end
object JournalTitle1: TMenuItem
Caption = 'Journal &Title'
OnClick = JournalTitle1Click
end
object JournalDate1: TMenuItem
Caption = 'Journal &Date'
OnClick = JournalDate1Click
end
object N2: TMenuItem
Caption = '-'
end
object EraseThisPage1: TMenuItem
Caption = '&Erase This Page'
OnClick = EraseThisPage1Click
end
object ClearTheJournal1: TMenuItem
Caption = 'Clear The &Journal'
OnClick = ClearTheJournal1Click
end
object N3: TMenuItem
Caption = '-'
end
object JournalOnTop1: TMenuItem
Caption = 'Journal &On Top'
OnClick = JournalOnTop1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
object Contents1: TMenuItem
Caption = '&Contents'
OnClick = Contents1Click
end
object HowToRegister1: TMenuItem
Caption = 'How To &Register'
OnClick = HowToRegister1Click
end
object TheDiaryJournal1: TMenuItem
Caption = 'The Diary &Journal'
OnClick = TheDiaryJournal1Click
end
end
end
object FontD: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Device = fdBoth
MinFontSize = 0
MaxFontSize = 0
Left = 68
Top = 144
end
end